Diccionario Visual Trilingue/VISUAL.iso/SHARED.DIR/10073_Global Key Event Handlers.ls

Text File | 1997-07-04 | 5.3 KB | 151 lines

global gTextLanguage, gCASTNUMBOGUS, gCASTNUMETIQUETTE, gSPRITENUMETIQUETTEACTIVE, gSPRITENUMHIGHLIGHT, gVignetHighLighted, gItemIDSound, gNbVignet, glstVignet, glstUpArrow, glstDownArrow, glstSpriteNumVignet, gZoneSensibleActive, gImageButtonActive, gThemeButtonActive, gHistoryButtonActive, gQuitButtonActive, gContentButtonActive, gHelpButtonActive, gLeftArrowButtonActive, gRightArrowButtonActive, gUpArrowButtonActive, gReturnArrowButtonActive, glstVignetHighLighted, gVignetNum

on HighLightEtiquet VignetNum
  if (VignetNum < 1) or (VignetNum > gNbVignet) then
    return
  end if
  set gVignetHighLighted to getAt(glstSpriteNumVignet, VignetNum)
  set glstVignetHighLighted to getAt(glstVignet, VignetNum)
  set gVignetNum to VignetNum
  set the castNum of sprite gSPRITENUMETIQUETTEACTIVE to gCASTNUMBOGUS
  updateStage()
  set the visible of sprite gSPRITENUMHIGHLIGHT to 1
  set the locH of sprite gSPRITENUMHIGHLIGHT to the locH of sprite gVignetHighLighted
  set the locV of sprite gSPRITENUMHIGHLIGHT to the locV of sprite gVignetHighLighted
  set the ink of sprite gSPRITENUMHIGHLIGHT to 36
  set the castNum of sprite gSPRITENUMHIGHLIGHT to 12058
  set the textAlign of cast gCASTNUMETIQUETTE to "center"
  set the textFont of cast gCASTNUMETIQUETTE to "IVD10"
  set the textSize of cast gCASTNUMETIQUETTE to 10
  set the foreColor of cast gCASTNUMETIQUETTE to 15
  set the backColor of cast gCASTNUMETIQUETTE to 219
  set lstEtiquetText to getAt(glstVignetHighLighted, gTextLanguage)
  set the text of cast gCASTNUMETIQUETTE to getAt(lstEtiquetText, 1)
  set DemiLargeurEtiquet to (getAt(lstEtiquetText, 2) + 4) / 2
  set the rect of cast gCASTNUMETIQUETTE to rect(0, 0, DemiLargeurEtiquet * 2, 0)
  set SpriteLocH to the locH of sprite gVignetHighLighted
  if (SpriteLocH - DemiLargeurEtiquet) < 2 then
    set theLocH to 2
  else
    if (SpriteLocH + DemiLargeurEtiquet) > 638 then
      set theLocH to 638 - (DemiLargeurEtiquet * 2)
    else
      set theLocH to SpriteLocH - DemiLargeurEtiquet
    end if
  end if
  set the locH of sprite gSPRITENUMETIQUETTEACTIVE to theLocH
  set the locV of sprite gSPRITENUMETIQUETTEACTIVE to the locV of sprite gVignetHighLighted + 27
  set the ink of sprite gSPRITENUMETIQUETTEACTIVE to 0
  set the castNum of sprite gSPRITENUMETIQUETTEACTIVE to gCASTNUMETIQUETTE
  updateStage()
  set glstDownArrow to getAt(glstVignetHighLighted, 7)
  set gItemIDSound to getAt(glstVignetHighLighted, 5)
  if gTextLanguage = 1 then
    nothing()
  else
    if gTextLanguage = 2 then
      set gItemIDSound to gItemIDSound + 1
    else
      if gTextLanguage = 3 then
        set gItemIDSound to gItemIDSound + 2
      end if
    end if
  end if
end

on ButtonActiveMouse
  if gZoneSensibleActive = 1 then
    if the mouseCast = the castNum of sprite 32 then
      return 0
    else
      if not gImageButtonActive and (the mouseCast = the castNum of sprite 36) then
        return 0
      else
        return 1
      end if
    end if
  else
    if gZoneSensibleActive = 2 then
      if the mouseCast = the castNum of sprite 33 then
        return 0
      else
        if not gThemeButtonActive and (the mouseCast = the castNum of sprite 35) then
          return 0
        else
          if not gHistoryButtonActive and (the mouseCast = the castNum of sprite 36) then
            return 0
          else
            if not gContentButtonActive and (the mouseCast = the castNum of sprite 37) then
              return 0
            else
              return 1
            end if
          end if
        end if
      end if
    else
      if gZoneSensibleActive = 3 then
        if not gHelpButtonActive and (the mouseCast = the castNum of sprite 1) then
          return 0
        else
          return 1
        end if
      else
        if gZoneSensibleActive = 4 then
          if not gQuitButtonActive and (the mouseCast = the castNum of sprite 34) then
            return 0
          else
            return 1
          end if
        else
          if the mouseCast = the castNum of sprite 3 then
            return gReturnArrowButtonActive
          else
            if the mouseCast = the castNum of sprite 4 then
              return gLeftArrowButtonActive
            else
              if the mouseCast = the castNum of sprite 5 then
                return gRightArrowButtonActive
              else
                if the mouseCast = the castNum of sprite 6 then
                  return gUpArrowButtonActive
                else
                  if the mouseCast = the castNum of sprite gVignetHighLighted then
                    return 1
                  else
                    return 0
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on ButtonActiveKey
  if the keyCode = 36 then
    return gReturnArrowButtonActive
  else
    if the keyCode = 123 then
      return gLeftArrowButtonActive
    else
      if the keyCode = 124 then
        return gRightArrowButtonActive
      else
        if the keyCode = 126 then
          return gUpArrowButtonActive
        else
          if ((the keyCode = 76) or (the keyCode = 125)) and (gVignetHighLighted > 10) and (gVignetHighLighted < 48) then
            return 1
          else
            return 0
          end if
        end if
      end if
    end if
  end if
end